#ifndef _DIALOG_CH
#define _DIALOG_CH

#xcommand DEFINE DIALOG <oDlg> ;
             [ NAME <cResName> ] ;
             [ TITLE <cTitle> ] ;
             [ FROM <nTop>, <nLeft> TO <nBottom>, <nRight> ] ;
             [ RESOURCE <hResources> ] ;
       => ;
          <oDlg> = TDialog():New( <nTop>, <nLeft>, <nBottom>, <nRight>,;
                                  <cTitle>, <cResName>, <hResources> )


#xcommand ACTIVATE DIALOG <oDlg> ;
             [ ON LEFT CLICK <uClick> ] ;
             [ ON MOVE <uMoved> ] ;
             [ ON PAINT <uPaint> ] ;
             [ <center:CENTERED> ] ;
             [ VALID <uValid> ] ;
        => ;
          <oDlg>:Activate( <oDlg>:bLClicked [ := <{uClick}> ], ;
                           <oDlg>:bMoved    [ := <{uMoved}> ], ;
                           <oDlg>:bPainted  [ := <{uPaint}> ], ;
                           <.center.>, [{|Self|<uValid>}] )

#endif
